home *** CD-ROM | disk | FTP | other *** search
/ Mastering Microsoft Visual Basic 5 / Mastering Microsoft Visual Basic 5.ISO / sampapps / objectsharing / objserver.cls < prev    next >
Text File  |  1997-01-27  |  392b  |  19 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ObjServer"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. Public Property Get SomeObject() As SomeObject
  13.   If so Is Nothing Then
  14.     Set so = New SomeObject
  15.   End If
  16.   Set SomeObject = so
  17. End Property
  18.  
  19.